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DECUS Program Library Write-up 


DECUS NO. 8-561 


REVISED HELP LOADER FOR HIGH-SPEED READER 


1. This revision of the HELP loader is loaded with a 9-instruction 
bootstrap into field 0 of core. When the processor is started 
at location 0000, the HELP tape loads RIM, which then loads BIN. 

2. Two tapes are supplied. One contains the standard Dec BIN loader, 
the other a shorter version of BIN written by the author (see 
listing). 

3. Operating procedure: 

a. Set instruction field and data field = 0, if you have a multi- 
field machine. 

b. Set the switch register = 0000; press Load Address key. 

c. Load the 9 instructions of the bootstrap by setting the 
switch register and pressing the Deposit key. 

d. Load the blank leader of the HELP tape into the high-speed 
reader; check to see that the reader is on. It is advisable 
to turn off any device capable of causing interrupts, for 
example the console TTY. 

e. Load address (the switch register should at this point read 
0000) and start. 

f. When tape has run through, halt the processor at the console. 
BIN and RIM are now in core. 


/BOOTSTRAP TO LOAD REVISED "HELP" TAPE 
/TOGGLE IN VIA THE SWI TGI REGISTER 

FIELD 0 /VARYING: THIS BOOTSTRAP USES INTERRUPT 

/AND MUST BE PROTECTED FROM SPURIOUS FLAGS 
/ (E.G.# FROM TELETYPE KEYS# ETC.) 


* 0000 


0000 

6014 

RFC 


/HIGH-SPEED READER **ONLY** 

0001 

6016 

RRB 

RFC 


0002 

6001 

ION 



000 3 

7530 

SPA 

SZL 


0004 

3410 

DCA 

I 10 


00 05 

7106 

CLL 

RTL 


0006 

5006 

JMP 

• 


0007 

0000 

0 


/(INITIALLY) 

0010 

0000 

0 


/ 


/START AT ADDRESS - 0000# FIELD 0. THE "HELP” 
/TAPE SHOULD BE LOADED ON ITS BLANK LEADER. 






Contents of HELP tape 


Blank leader. 


Location 

Instruction 

0001 

6016 

0002 

6001 

0003 

7530 

0004 

3410 

0005 

7106 

0006 

5006 

0007 

7756 

0010 

7755 

7756 

6014 

7757 

6011 

7760 

5357 

7761 

6016 

7762 

7106 

7763 

7006 

7764 

7510 

7765 

5374 

7766 

7006 

7767 

6011 

7770 

5367 

7771 

6016 

7772 

7420 

7773 

3776 

7774 

3376 

7775 

5357 

7776 

0000 

7777 

0000 

0000 

0000- 

0001 

5407 


200 leader, then BIN in RIM 


Help format punches 
300 0 16 
300 0 1 
300 300 130 
100 100 300 10 
300 200 106 
200 200 6 
300 300 356 
300 300 355 
300 0 14 

300 0 11 
200 200 357 
300 0 16 
300 200 106 
300 200 6 
300 300 110 
200 200 374 
300 200 6 
300 0 11 
200 200 367 
300 0 16 

300 300 20 
100 100 300 376 
100 100 200 376 
200 200 357 
100 0 0 0 
100 0 0 0 
100 0 0 0 
200 300 7 

format. 



f 
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NEW BIN LOADER 

The BIN loader must:* Read from either low or high speed readers. Ignore 200-punch 
leader but sense 200-punch trailer. Ignore all characters (tape) held between rubouts 
(MACRO-8 error code). Check for Change Data Field requests (new field number * 10 
+300) and decode and answer them. If none of the other conditions occur, a full word 
is made from a pair of characters as shown in the program, and this is either DCAed I 
a pointer or is used to set the pointer or is taken as a checksum, and is added to the 
negative of the running sum of tape characters. The remainder is left in the accumulator 
when the program halts to indicate successful loading. 

DASADVANTAGES 

1. Location 7777 now contains 5307 instead of 5301 when BIN is loaded, which may 
confuse some operators. It's hard to change something so standard. 

2. This BIN loader is vulnerable to stray TTY flags when the high speed reader is running. 
The TTY is perhaps best turned off. 

3. The system for loading the BIN loader (via HELP) will not load it into fields above 
field 0 . The user can, of course, use RIM in field 0 to load the RIM-format portion of 
the tape into a higher core field. To do this set instruction field * 0 , data field ■ 1 
(or 2 or ...) before starting RIM at 7756. 

ADVANTAGES 

It is no longer necessary to set the switch register to indicate the reader you want; just 
load only one reader and don't hit the keyboard. 

This BIN leaves the data break locations open and leaves room for two TC01 loaders 
besides. It is exactly 100 octal locations long and runs faster than the older BIN (but 
it still must wait for the readers). 
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/ NEV BIN LOADER 
/ F. PALMI SANO, NOV. 1972 


*7650 


7650 

0000 

CM ECK, 

0 


7651 

0000 

PARTI. 

0 


7652 

0000 

PART2, 

0 


7653 

0000 

TEST. 

0 

/READ CKAR.: CKECK FOR 
/ SPECIAL CKARS. 

7654 

7100 

OTMER, 

CLL 


76 5 5 

6031 

RUBOUT. 

KSF 


7656 

7610 


CLA SKP 


7657 

5264 


JMP LO 


766 0 

601 1 


RSF 


7661 

5255 


JMP RUBOUT 


7662 

6016 


RRB RFC 


7663 

7410 


SKP 


7664 

6036 

LO. 

KRB 

/BOTK READERS ARE SCANNED 

7665 

3277 


DCA CKAR 


7666 

1277 


TAD CKAR 


7667 

1302 


TAD M377 

/7401 + RUBOUT GIVES AC»0, LK-1 

767 0 

7470 


SSL SNA 


7671 

5255 


JMP RUBOUT 

/VI TK LINK= 1 UNTIL NEXT RBT. 

7672 

1332 


TAD K177 

/ 7600 ( -200) NET + CKAR. 

7673 

7550 


SPA SNA 


7674 

5653 


JMP I TEST 

/C CKAR. RESTORED IN MAIN PROGRAM] 

7675 

1301 


TAD K6101 

/BRINGS CKAR. 3N0 UP TO 62N 1 
/ C CDF TO FI ELD N) 

7676 

3277 


DCA CKAR 


7677 

0000 

CHAR, 

0 


7700 

5254 


JMP OTMER 


7701 

6101 

K 61 01, 

6101 


77 02 

7401 

M377, 

- 377 


77 0 3 

4341 

END, 

JMS BUILD 

/MAKE UP CKSUM. WORD 

7704 

7161 


CLL CML CIA 


77 0 5 

1250 


TAD CM ECK 


77 0 6 

7402 


MLT 

/VI TK CKSUM. DI FF IN AC LIGKTS 



/ACTUAL 

START OF PROGRAM: 

7707 

6032 

START, 

KCC 


7710 

6014 


RFC 


771 1 

4253 


JMS TEST 


7712 

7630 


SSL CLA 


7713 

531 1 


JMP .-2 

/LEADER CODE C200), IGNORE 
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7714 

3250 

GO, 

DC A 

CHECK 

7715 

1277 


TAD 

CHAR 

77 16 

3251 


DC A 

PARTI 

7717 

4253 


JMS 

TEST 

7720 

0332 


AMD 

K 1 77 

7721 

3252 


DCA 

PART2 

77 22 

4253 


JMS 

TEST 

7723 

7630 


SSL 

CL A 

7724 

5303 


JMP 

EMD 

7725 

4341 


JMS 

BUILD 

7726 

7430 


SSL 


77 27 

5334 


JMP 

ADCODE 

7730 

3776 


DCA 

I TEMP 

7731 

2376 


I SZ 

TEMP 

77 32 

0177 

K177, 

177 


7733 

7410 


SKP 


77 34 

3376 

ADCO DE, 

DCA 

TEMP 

7735 

1250 


TAD 

CHECK 

77 3 6 

1251 


TAD 

PARTI 

77 37 

1252 


TAD 

PART2 

7740 

5314 


JMP 

GO 

7741 

0000 

BUILD, 

0 


7742 

1251 


TAD 

PARTI 

7743 

7106 


CLL 

RTL 

7744 

7006 


RTL 


7745 

7006 


RTL 


7746 

1252 


TAD 

PART2 

7747 

5741 


JMP 

I BUI L 


/IM EFFECT# WIS RESTORES CHAR 

/KEEP OME FRAME AHEAD 

/TRAILER CODE (200)# STOP 
/MOT 200, PACK FRAMES 
/DATA, OR ADRS. ? 

/ADRS. CODE 
/MO, DATA WORD 

/PROTECT THE I SS 


/UPDATE CHECKSUM 


/PACK TWO 6-BIT FRAMES 


/LIMK = 1 IF AM ADRS. WORD 


TEM P= 7 7 7 6 


77 7 7 

*7777 

5307 

JMP START 

ADCODE 

7734 


BUILD 

7741 


CHAR 

7677 


CHECK 

7650 


EJD 

7703 


GD 

7714 


K177 

7732 


K6101 

7701 


LO 

7664 


M377 

7702 


OTHER 

7654 


FART 1 

7651 


PART2 

7652 


HOBOUT 

7655 


START 

7707 


TEMP 

7776 


TEST 

7653 



/5307, ALLOWS START FROM 7777 
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